home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Library / Retrieve / pick-tonality < prev    next >
Text File  |  1998-10-23  |  1KB  |  14 lines
  1. pick-tonality template-description &rest template-descriptions
  2.  
  3. The first item in template-description is a path and the file name of the library. The second item is a random generator seed in the range 0.0000-0.9999. If the item is nil, then initialisation is not performed. If the third item is a list, it is evaluated, and the return value is used as a template. If it is an atom, then it and all atoms in the rest template-description list are used as templates. If the names exists in the library, the values associated with them are used, and no randomness takes place. Otherwise the template is filled randomly by mapping template symbols to elements in the active library. The active library is set with (set-tonality-path foldername).
  4.  
  5. (def-tonality
  6.    piano
  7.       (pick-tonality
  8.          ("pop chords:pop in major" 0.34 a b a b a b a c a b a b a b a d)
  9.          ("pop chords:pop in minor" nil (use-item definition))
  10.          ("classic chords:modulate sequences" nil e&b&7)
  11.       )
  12.    bass    
  13.       (pick-tonality ("cadenzial chords:in major, length 4" nil a))
  14. )